Voorbeeld van de gebeurtenis Resize

Het volgende voorbeeld maakt gebruik van de gebeurtenissen Activate en Click om het starten van de gebeurtenis Resize van UserForm te illustreren. Als de gebruiker op het clientgebied van het formulier klikt, wordt het formulier groter of kleiner en wordt de nieuwe hoogte aangegeven in de titelbalk. De eigenschap Tag wordt gebruikt om de oorspronkelijke hoogte van UserForm op te slaan.

' Activate-gebeurtenis voor UserForm1
Private Sub UserForm_Activate()
    UserForm1.Caption = "Klik om mij groter te maken!"
    Tag = Height    ' Slaat oorspronkelijke hoogte op.
End Sub

' Click-gebeurtenis voor UserForm1
Private Sub UserForm_Click()
    Dim NewHeight As Single
    NewHeight = Height
    ' Als het formulier klein is, wordt het groter gemaakt.
    If NewHeight = Val(Tag) Then
        Height = Val(Tag) * 2
    Else
    ' Als het formulier groot is, wordt het kleiner gemaakt.
        Height = Val(Tag)
    End If
End Sub

' Resize-gebeurtenis voor UserForm1
Private Sub UserForm_Resize()
    UserForm1.Caption = "Nieuwe hoogte: " & Height & "  " & "Klik om de grootte te wijzigen."
End Sub